home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib18.dsk / NOTE BOOK.bas < prev    next >
BASIC Source File  |  2023-02-26  |  399b  |  17 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  REM 
  3. 120  REM  NOTE BOOK
  4. 130  REM 
  5. 140  REM  PAUL RAYMER
  6. 150  REM  3464 TOWNHOUSE DR
  7. 160  REM  LAS VEGAS NV 89121
  8. 170  REM 
  9. 180  REM  VI/XXV/MCMLXXXIII
  10. 190  REM 
  11. 200  VTAB 3: HTAB 1
  12. 210  GET A$
  13. 220  IF A$ =  CHR$(27)  THEN  END 
  14. 230  IF A$ = "*"  THEN 250
  15. 240  PRINT A$;: GOTO 210
  16. 250  PRINT : PRINT  CHR$(4);"BSAVE NOTE";X;",A$400,L$400"
  17. 260 X = X +1: HOME : GOTO 200